home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / XAMPP 1.4.14 / xampp-win32-1.4.14-installer.exe / xampp / php / pear / adodb / tests / testdatabases.inc.php < prev    next >
PHP Script  |  2005-05-17  |  17KB  |  401 lines
  1. <?php
  2.   
  3. /*
  4. V4.63 17 May 2005  (c) 2000-2005 John Lim (jlim@natsoft.com.my). All rights reserved.
  5.   Released under both BSD license and Lesser GPL library license. 
  6.   Whenever there is any discrepancy between the two licenses, 
  7.   the BSD license will take precedence.
  8. */ 
  9.  
  10.  /* this file is used by the ADODB test program: test.php */
  11.  ?>
  12.  
  13. <table><tr valign=top><td>
  14. <form method=get>
  15. <input type=checkbox name="testaccess" value=1 <?php echo !empty($testaccess) ? 'checked' : '' ?>> <b>Access</b><br>
  16. <input type=checkbox name="testibase" value=1 <?php echo !empty($testibase) ? 'checked' : '' ?>> <b>Interbase</b><br>
  17. <input type=checkbox name="testmssql" value=1 <?php echo !empty($testmssql) ? 'checked' : '' ?>> <b>MSSQL</b><br>
  18.  <input type=checkbox name="testmysql" value=1 <?php echo !empty($testmysql) ? 'checked' : '' ?>> <b>MySQL</b><br>
  19. <input type=checkbox name="testmysqlodbc" value=1 <?php echo !empty($testmysqlodbc) ? 'checked' : '' ?>> <b>MySQL ODBC</b><br>
  20. <input type=checkbox name="testmysqli" value=1 <?php echo !empty($testmysqli) ? 'checked' : '' ?>> <b>MySQLi</b>
  21. <br>
  22. <td><input type=checkbox name="testsqlite" value=1 <?php echo !empty($testsqlite) ? 'checked' : '' ?>> <b>SQLite</b><br>
  23. <input type=checkbox name="testproxy" value=1 <?php echo !empty($testproxy) ? 'checked' : '' ?>> <b>MySQL Proxy</b><br>
  24. <input type=checkbox name="testoracle" value=1 <?php echo !empty($testoracle) ? 'checked' : '' ?>> <b>Oracle (oci8)</b> <br>
  25. <input type=checkbox name="testpostgres" value=1 <?php echo !empty($testpostgres) ? 'checked' : '' ?>> <b>PostgreSQL</b><br>
  26. <input type=checkbox name="testpgodbc" value=1 <?php echo !empty($testpgodbc) ? 'checked' : '' ?>> <b>PostgreSQL ODBC</b><br>
  27. <td>
  28. <input type=checkbox name="testpdopgsql" value=1 <?php echo !empty($testpdopgsql) ? 'checked' : '' ?>> <b>PgSQL PDO</b><br>
  29. <input type=checkbox name="testpdomysql" value=1 <?php echo !empty($testpdomysql) ? 'checked' : '' ?>> <b>MySQL PDO</b><br>
  30. <input type=checkbox name="testpdosqlite" value=1 <?php echo !empty($testpdosqlite) ? 'checked' : '' ?>> <b>SQLite PDO</b><br>
  31. <input type=checkbox name="testpdoaccess" value=1 <?php echo !empty($testpdoaccess) ? 'checked' : '' ?>> <b>Access PDO</b><br>
  32.  
  33. <td><input type=checkbox name="testdb2" value=1 <?php echo !empty($testdb2) ? 'checked' : '' ?>> DB2<br>
  34. <input type=checkbox name="testvfp" value=1 <?php echo !empty($testvfp) ? 'checked' : '' ?>> VFP+ODBTP<br>
  35. <input type=checkbox name="testado" value=1 <?php echo !empty($testado) ? 'checked' : '' ?>> ADO (for mssql and access)<br>
  36. <input type=checkbox name="nocountrecs" value=1 <?php echo !empty($nocountrecs) ? 'checked' : '' ?>> $ADODB_COUNTRECS=false<br>
  37. <input type=checkbox name="nolog" value=1 <?php echo !empty($nolog) ? 'checked' : '' ?>> No SQL Logging<br>
  38. <input type=checkbox name="time" value=1 <?php echo !empty($_GET['time']) ? 'checked' : '' ?>> ADOdb time test
  39. </table>
  40. <input type=submit>
  41. </form>
  42.  
  43. <?php
  44.  
  45. if ($ADODB_FETCH_MODE != ADODB_FETCH_DEFAULT) print "<h3>FETCH MODE IS NOT ADODB_FETCH_DEFAULT</h3>";
  46.  
  47. if (isset($nocountrecs)) $ADODB_COUNTRECS = false;
  48.  
  49. // cannot test databases below, but we include them anyway to check
  50. // if they parse ok...
  51.  
  52. if (!strpos(PHP_VERSION,'5') === 0) {
  53.     ADOLoadCode("sybase");
  54.     //ADOLoadCode("postgres");
  55.     //ADOLoadCode("postgres7");
  56.     ADOLoadCode("firebird");
  57.     ADOLoadCode("borland_ibase");
  58.     ADOLoadCode("informix");
  59.     ADOLoadCode("sqlanywhere");
  60. //    ADOLoadCode('mysqli');
  61. }
  62.  
  63.  
  64. flush();
  65. if (!empty($testpostgres)) {
  66.     //ADOLoadCode("postgres");
  67.  
  68.     $db = &ADONewConnection('postgres');
  69.     print "<h1>Connecting $db->databaseType...</h1>";
  70.     if ($db->Connect("localhost","tester","test","test")) {
  71.         testdb($db,"create table ADOXYZ (id integer, firstname char(24), lastname varchar,created date)");
  72.     }else
  73.         print "ERROR: PostgreSQL requires a database called test on server, user tester, password test.<BR>".$db->ErrorMsg();
  74. }
  75.  
  76. if (!empty($testpgodbc)) { 
  77.     
  78.     $db = &ADONewConnection('odbc');
  79.     $db->hasTransactions = false;
  80.     print "<h1>Connecting $db->databaseType...</h1>";
  81.     
  82.     if ($db->PConnect('Postgresql')) {
  83.         $db->hasTransactions = true;
  84.         testdb($db,
  85.         "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date) type=innodb");
  86.     } else print "ERROR: PostgreSQL requires a database called test on server, user tester, password test.<BR>".$db->ErrorMsg();
  87. }
  88.  
  89. if (!empty($testibase)) {
  90.     //$_GET['nolog'] = true;
  91.     $db = &ADONewConnection('firebird');
  92.     print "<h1>Connecting $db->databaseType...</h1>";
  93.     if ($db->PConnect("localhost:d:\\firebird\\151\\examples\\EMPLOYEE.fdb", "sysdba", "masterkey", ""))
  94.         testdb($db,"create table ADOXYZ (id integer, firstname char(24), lastname char(24),price numeric(12,2),created date)");
  95.      else print "ERROR: Interbase test requires a database called employee.gdb".'<BR>'.$db->ErrorMsg();
  96.     
  97. }
  98.  
  99.  
  100. if (!empty($testsqlite)) {
  101.     $path =urlencode('d:\inetpub\adodb\sqlite.db');
  102.     $dsn = "sqlite://$path/";
  103.     $db = ADONewConnection($dsn);
  104.     echo $dsn;
  105.     
  106. //    $db = &ADONewConnection('sqlite');
  107.     print "<h1>Connecting $db->databaseType...</h1>";
  108.     
  109.     if (1)
  110.     //if ($db->PConnect("d:\\inetpub\\adodb\\sqlite.db", "", "", ""))
  111.         testdb($db,"create table ADOXYZ (id int, firstname char(24), lastname char(24),created datetime)");
  112.     else print "ERROR: SQLite";
  113.     
  114. }
  115.  
  116. if (!empty($testpdopgsql)) {
  117.     $connstr = "pgsql:dbname=test";
  118.     $u = 'tester';$p='test';
  119.     $db = &ADONewConnection('pdo');
  120.     $db->hasTransactions = false;
  121.     print "<h1>Connecting $db->databaseType...</h1>";
  122.     $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
  123.     testdb($db,
  124.         "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
  125. }
  126.  
  127. if (!empty($testpdomysql)) {
  128.     $connstr = "mysql:dbname=northwind";
  129.     $u = 'root';$p='';
  130.     $db = &ADONewConnection('pdo');
  131.     $db->hasTransactions = false;
  132.     print "<h1>Connecting $db->databaseType...</h1>";
  133.     $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
  134.     testdb($db,
  135.         "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
  136. }
  137.  
  138. if (!empty($testpdosqlite)) {
  139.     $connstr = "sqlite:d:/inetpub/adodb/sqlite-pdo.db3";
  140.     $u = '';$p='';
  141.     $db = &ADONewConnection('pdo');
  142.     $db->hasTransactions = false;
  143.     print "<h1>Connecting $db->databaseType...</h1>";
  144.     $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
  145.     testdb($db,
  146.         "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
  147. }
  148.  
  149. if (!empty($testpdoaccess)) {
  150.     $connstr = 'odbc:nwind';
  151.     $u = '';$p='';
  152.     $db = &ADONewConnection('pdo');
  153.     $db->hasTransactions = false;
  154.     print "<h1>Connecting $db->databaseType...</h1>";
  155.     $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
  156.     testdb($db,
  157.         "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
  158. }
  159.  
  160. // REQUIRES ODBC DSN CALLED nwind
  161. if (!empty($testaccess)) {
  162.     $db = &ADONewConnection('access');
  163.     print "<h1>Connecting $db->databaseType...</h1>";
  164.     $access = 'd:\inetpub\wwwroot\php\NWIND.MDB';
  165.     $dsn = "nwind";
  166.     $dsn = "Driver={Microsoft Access Driver (*.mdb)};Dbq=$access;Uid=Admin;Pwd=;";
  167.     
  168.     //$dsn =  'Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=' . $access . ';';
  169.     if ($db->PConnect($dsn, "", "", ""))
  170.         testdb($db,"create table ADOXYZ (id int, firstname char(24), lastname char(24),created datetime)");
  171.     else print "ERROR: Access test requires a Windows ODBC DSN=nwind, Access driver";
  172.     
  173. }
  174.  
  175. if (!empty($testaccess) && !empty($testado)) { // ADO ACCESS
  176.  
  177.     $db = &ADONewConnection("ado_access");
  178.     print "<h1>Connecting $db->databaseType...</h1>";
  179.     
  180.     $access = 'd:\inetpub\wwwroot\php\NWIND.MDB';
  181.     $myDSN =  'PROVIDER=Microsoft.Jet.OLEDB.4.0;'
  182.         . 'DATA SOURCE=' . $access . ';';
  183.         //. 'USER ID=;PASSWORD=;';
  184.     $_GET['nolog'] = 1;
  185.     if ($db->PConnect($myDSN, "", "", "")) {
  186.         print "ADO version=".$db->_connectionID->version."<br>";
  187.         testdb($db,"create table ADOXYZ (id int, firstname char(24), lastname char(24),created datetime)");
  188.     } else print "ERROR: Access test requires a Access database $access".'<BR>'.$db->ErrorMsg();
  189.     
  190. }
  191.  
  192. if (!empty($testvfp)) { // ODBC
  193.     $db = &ADONewConnection('vfp');
  194.     print "<h1>Connecting $db->databaseType...</h1>";flush();
  195.  
  196.     if ( $db->PConnect("vfp-adoxyz")) {
  197.         testdb($db,"create table d:\\inetpub\\adodb\\ADOXYZ (id int, firstname char(24), lastname char(24),created date)");
  198.      } else print "ERROR: Visual FoxPro test requires a Windows ODBC DSN=vfp-adoxyz, VFP driver";
  199.     
  200.     echo "<hr>";
  201.     $db = &ADONewConnection('odbtp');
  202.     
  203.     if ( $db->PConnect('localhost','DRIVER={Microsoft Visual FoxPro Driver};SOURCETYPE=DBF;SOURCEDB=d:\inetpub\adodb;EXCLUSIVE=NO;')) {
  204.     print "<h1>Connecting $db->databaseType...</h1>";flush();
  205.     testdb($db,"create table d:\\inetpub\\adodb\\ADOXYZ (id int, firstname char(24), lastname char(24),created date)");
  206.      } else print "ERROR: Visual FoxPro odbtp requires a Windows ODBC DSN=vfp-adoxyz, VFP driver";
  207.     
  208. }
  209.  
  210.  
  211. // REQUIRES MySQL server at localhost with database 'test'
  212. if (!empty($testmysql)) { // MYSQL
  213.  
  214.  
  215.     if (PHP_VERSION >= 5 || $_SERVER['HTTP_HOST'] == 'localhost') $server = 'localhost';
  216.     else $server = "mangrove";
  217.     $user = 'root'; $password = ''; $database = 'northwind';
  218.     $db = &ADONewConnection("mysqlt://$user:$password@$server/$database?persist");
  219.     print "<h1>Connecting $db->databaseType...</h1>";
  220.     
  221.     if (true || $db->PConnect($server, "root", "", "northwind")) {
  222.         //$db->Execute("DROP TABLE ADOXYZ") || die('fail drop');
  223.         //$db->debug=1;$db->Execute('drop table ADOXYZ');
  224.         testdb($db,
  225.         "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date) Type=InnoDB");
  226.     } else print "ERROR: MySQL test requires a MySQL server on localhost, userid='admin', password='', database='test'".'<BR>'.$db->ErrorMsg();
  227. }
  228.  
  229. // REQUIRES MySQL server at localhost with database 'test'
  230. if (!empty($testmysqli)) { // MYSQL
  231.  
  232.     $db = &ADONewConnection('mysqli');
  233.     print "<h1>Connecting $db->databaseType...</h1>";
  234.     if (PHP_VERSION >= 5 || $_SERVER['HTTP_HOST'] == 'localhost') $server = 'localhost';
  235.     else $server = "mangrove";
  236.     if ($db->PConnect($server, "root", "", "northwind")) {
  237.         //$db->debug=1;$db->Execute('drop table ADOXYZ');
  238.         testdb($db,
  239.         "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
  240.     } else print "ERROR: MySQL test requires a MySQL server on localhost, userid='admin', password='', database='test'".'<BR>'.$db->ErrorMsg();
  241. }
  242.  
  243.  
  244. // REQUIRES MySQL server at localhost with database 'test'
  245. if (!empty($testmysqlodbc)) { // MYSQL
  246.     
  247.     $db = &ADONewConnection('odbc');
  248.     $db->hasTransactions = false;
  249.     print "<h1>Connecting $db->databaseType...</h1>";
  250.     if ($_SERVER['HTTP_HOST'] == 'localhost') $server = 'localhost';
  251.     else $server = "mangrove";
  252.     if ($db->PConnect('mysql', "root", ""))
  253.         testdb($db,
  254.         "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date) type=innodb");
  255.     else print "ERROR: MySQL test requires a MySQL server on localhost, userid='admin', password='', database='test'".'<BR>'.$db->ErrorMsg();
  256. }
  257.  
  258. if (!empty($testproxy)){
  259.     $db = &ADONewConnection('proxy');
  260.     print "<h1>Connecting $db->databaseType...</h1>";
  261.     if ($_SERVER['HTTP_HOST'] == 'localhost') $server = 'localhost';
  262.  
  263.     if ($db->PConnect('http://localhost/php/phplens/adodb/server.php'))
  264.         testdb($db,
  265.         "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date) type=innodb");
  266.     else print "ERROR: MySQL test requires a MySQL server on localhost, userid='admin', password='', database='test'".'<BR>'.$db->ErrorMsg();
  267.  
  268. }
  269.  
  270. ADOLoadCode('oci805');
  271. ADOLoadCode("oci8po");
  272. if (!empty($testoracle)) {
  273.     $dsn = "oci8po://juris10:natsoft@sherkhan?persist";
  274.     $db = ADONewConnection($dsn);
  275.     print "<h1>Connecting $db->databaseType...</h1>";
  276.     if (true || $db->Connect('', "scott", "natsoft",''))
  277.         testdb($db,"create table ADOXYZ (id int, firstname varchar(24), lastname varchar(24),created date)");
  278.     else print "ERROR: Oracle test requires an Oracle server setup with scott/natsoft".'<BR>'.$db->ErrorMsg();
  279.  
  280. }
  281. ADOLoadCode("oracle"); // no longer supported
  282. if (false && !empty($testoracle)) { 
  283.     
  284.     $db = ADONewConnection();
  285.     print "<h1>Connecting $db->databaseType...</h1>";
  286.     if ($db->PConnect("", "scott", "tiger", "natsoft.domain"))
  287.         testdb($db,"create table ADOXYZ (id int, firstname varchar(24), lastname varchar(24),created date)");
  288.     else print "ERROR: Oracle test requires an Oracle server setup with scott/tiger".'<BR>'.$db->ErrorMsg();
  289.  
  290. }
  291.  
  292. ADOLoadCode("db2"); // no longer supported
  293. if (!empty($testdb2)) { 
  294.     $db = ADONewConnection();
  295.     print "<h1>Connecting $db->databaseType...</h1>";
  296.     
  297.     $dsn = "db2_sample";
  298.     $dsn = "driver={IBM db2 odbc DRIVER};Database=sample;hostname=localhost;port=50000;protocol=TCPIP; uid=root; pwd=natsoft";
  299.     if ($db->Connect($dsn)) {
  300.     //    testdb($db,"create table ADOXYZ (id int, firstname varchar(24), lastname varchar(24),created date)");
  301.     } else print "ERROR: DB2 test requires an server setup with odbc data source db2_sample".'<BR>'.$db->ErrorMsg();
  302.  
  303. echo "<hr>";
  304. flush();
  305.     $dsn = "driver={IBM db2 odbc DRIVER};Database=sample;hostname=localhost;port=50000;protocol=TCPIP; uid=root; pwd=natsoft";
  306.     
  307.     $db = ADONewConnection('odbtp');
  308.     if ($db->Connect('127.0.0.1',$dsn)) {
  309.         
  310.         $db->debug=1;
  311.          $arr = $db->GetArray( "||SQLProcedures" ); adodb_pr($arr);
  312.          $arr = $db->GetArray( "||SQLProcedureColumns|||GET_ROUTINE_SAR" );adodb_pr($arr);
  313.     
  314.         testdb($db,"create table ADOXYZ (id int, firstname varchar(24), lastname varchar(24),created date)");
  315.     } else echo ("ERROR Connection");
  316.     echo $db->ErrorMsg();
  317. }
  318.  
  319.  
  320. $server = 'sherkhan';
  321.  
  322. ADOLoadCode('odbc_mssql');
  323. if (!empty($testmssql)) { // MS SQL Server via ODBC
  324.     $db = ADONewConnection();
  325.     
  326.     print "<h1>Connecting $db->databaseType...</h1>";
  327.     
  328.     $dsn = "PROVIDER=MSDASQL;Driver={SQL Server};Server=$server;Database=northwind;";
  329.     
  330.     if ($db->PConnect($dsn, "adodb", "natsoft", ""))  {
  331.         testdb($db,"create table ADOXYZ (id int, firstname char(24) null, lastname char(24) null,created datetime null)");
  332.     }
  333.     else print "ERROR: MSSQL test 1 requires a MS SQL 7 server setup with DSN setup";
  334.  
  335. }
  336.  
  337. ADOLoadCode("ado_mssql");
  338. if (!empty($testmssql) && !empty($testado) ) { // ADO ACCESS MSSQL -- thru ODBC -- DSN-less
  339.     
  340.     $db = &ADONewConnection("ado_mssql");
  341.     //$db->debug=1;
  342.     print "<h1>Connecting DSN-less $db->databaseType...</h1>";
  343.     
  344.     $myDSN="PROVIDER=MSDASQL;DRIVER={SQL Server};"
  345.         . "SERVER=$server;DATABASE=NorthWind;UID=adodb;PWD=natsoft;Trusted_Connection=No";
  346.  
  347.         
  348.     if ($db->PConnect($myDSN, "", "", ""))
  349.         testdb($db,"create table ADOXYZ (id int, firstname char(24) null, lastname char(24) null,created datetime null)");
  350.     else print "ERROR: MSSQL test 2 requires MS SQL 7";
  351.     
  352. }
  353.  
  354.  
  355. ADOLoadCode("mssqlpo");
  356. if (!empty($testmssql)) { // MS SQL Server -- the extension is buggy -- probably better to use ODBC
  357.     $db = ADONewConnection("mssqlpo");
  358.     //$db->debug=1;
  359.     print "<h1>Connecting $db->databaseType...</h1>";
  360.     
  361.     $ok = $db->Connect('','adodb','natsoft','northwind');
  362.  
  363.     if ($ok or $db->PConnect("mangrove", "sa", "natsoft", "ai")) {
  364.         AutoDetect_MSSQL_Date_Order($db);
  365.     //    $db->Execute('drop table adoxyz');
  366.         testdb($db,"create table ADOXYZ (id int, firstname char(24) null, lastname char(24) null,created datetime null)");
  367.     } else print "ERROR: MSSQL test 2 requires a MS SQL 7 on a server='192.168.0.1', userid='adodb', password='natsoft', database='ai'".'<BR>'.$db->ErrorMsg();
  368.     
  369. }
  370.  
  371. if (!empty($testmssql) && !empty($testado)) { // ADO ACCESS MSSQL with OLEDB provider
  372.  
  373.     $db = &ADONewConnection("ado_mssql");
  374.     print "<h1>Connecting DSN-less OLEDB Provider $db->databaseType...</h1>";
  375.     //$db->debug=1;
  376.     $myDSN="SERVER=localhost;DATABASE=northwind;Trusted_Connection=yes";
  377.     if ($db->PConnect($myDSN, "adodb", "natsoft", 'SQLOLEDB')) {
  378.         testdb($db,"create table ADOXYZ (id int, firstname char(24), lastname char(24),created datetime)");
  379.     } else print "ERROR: MSSQL test 2 requires a MS SQL 7 on a server='mangrove', userid='sa', password='', database='ai'";
  380.  
  381. }
  382.  
  383.  
  384. if (extension_loaded('odbtp') && !empty($testmssql)) { // MS SQL Server via ODBC
  385.     $db = ADONewConnection('odbtp');
  386.     
  387.     $dsn = "PROVIDER=MSDASQL;Driver={SQL Server};Server=$server;Database=northwind;uid=adodb;pwd=natsoft";
  388.     
  389.     if ($db->PConnect('localhost',$dsn, "", ""))  {
  390.         print "<h1>Connecting $db->databaseType...</h1>";                
  391.         testdb($db,"create table ADOXYZ (id int, firstname char(24) null, lastname char(24) null,created datetime null)");
  392.     }
  393.     else print "ERROR: MSSQL test 1 requires a MS SQL 7 server setup with DSN setup";
  394.  
  395. }
  396.  
  397.  
  398. print "<h3>Tests Completed</h3>";
  399.  
  400. ?>
  401.